home *** CD-ROM | disk | FTP | other *** search
/ Utilities Professional 1-1500 / Utilities Professional 1-1500 (1994)(WPD)[!].iso / 12511500 / var1297.dms / var1297.adf / Rexx / EP_LoadModule.dopus < prev    next >
Text File  |  1978-01-07  |  1KB  |  51 lines
  1. /* Eagleplayer-DOpus-Steuerung
  2.    (c) 1993 DEFECT
  3.  
  4.  - spielt übergebenes Module
  5.  
  6.  - lädt gegebenenfalls Eagleplayer (Pfad richtig anpassen,siehe unten !)
  7.  
  8.  - in Opus als "Executable" ("AmigaDos") einbinden, asynchron starten ! (siehe
  9.    Handbuch), folgende Kommandozeile: rx rexx:ep_Loadmodule.dopus {f}
  10.  
  11. */
  12.  
  13. parse arg filename
  14.  
  15. options results
  16.  
  17. if pos('rexx_EP',SHOW('Ports')) = 0 then
  18.  do
  19.  
  20.   Waittime = 60        /* 1 min Wartezeit, bei Bedarf ändern */
  21.  
  22.             /* Eagle laden , Pfad bei Bedarf ändern !!!!!! */
  23.   address COMMAND 'sys:Eagleplayer'
  24.  
  25.   testflag=0
  26.   time ('R')
  27.  
  28.   address 'DOPUS.1'        /* address 'DOPUS.1' */
  29.   toptext 'Attempting to Load Eagleplayer.'
  30.  
  31.   do while (testflag=0) & (time('E') < Waittime)
  32.    if (pos('rexx_EP',SHOW('Ports')) ~= 0) then testflag =1
  33.   end
  34.  
  35.   if pos('rexx_EP',SHOW('Ports')) ~= 0 then
  36.     toptext 'Eagleplayer loaded'
  37.    else
  38.     do
  39.      toptext 'Couldn`t load Eagleplayer !'
  40.      exit
  41.     end
  42. end
  43.  
  44.     address 'DOPUS.1'        /* address 'DOPUS.1' */
  45.     toptext 'Eagleplayer: Attempting to Load Module !'
  46.     address 'rexx_EP'
  47.     Loadmodule filename
  48.     aha=result
  49.     address 'DOPUS.1'        /* address 'DOPUS.1' */
  50.     toptext 'Eagleplayer: '||aha
  51.